home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / pspmcvrt.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  127 lines
  1. 10 REM PRINT SHOP/PRINTMASTER CONVERTER
  2. 20 REM BY BRIAN HEYBOER 4/26/86
  3. 30 REM CLEARWATER COMMODORE CLUB BBS
  4. 40 REM SYSOP   TEL: 813/545-4884
  5. 50 REM Q-LINK ID: MOSFET
  6. 60 REM THIS PROGRAM IS PUBLIC DOMAIN
  7. 70 Z$=CHR$(0):Q$=CHR$(34):MX=140:FL$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+CHR$(139)
  8. 80  POKE53280,15:POKE53281,1
  9. 90  PRINTCHR$(14);CHR$(8)
  10. 100 DIMF$(MX),O$(MX)
  11. 110 PRINT"[147][149][208][210][201][206][212] [211][200][207][208]/[208][210][201][206][212][205][193][211][212][197][210][160][199][210][193][208][200][201][195][160][195][207][206][214][197][210][212][197][210]";
  12. 120 PRINT" [156] [194]Y [194]RIAN [200]EYBOER ([209]-[204]INK [201][196]: [205][207][211][198][197][212])"
  13. 130 PRINT"    [212]HIS PROGRAM CONVERTS [208]RINT [211]HOP"
  14. 140 PRINT"  [211]IDE [193] ([206]ON-[195][194][205] [208]RINTER) GRAPHICS TO"
  15. 150 PRINT"   [208]RINT[205]ASTER FORMAT AND [208]RINT[205]ASTER"
  16. 160 PRINT"  [193]RT [199]ALLERY OR [196]ATA [196]ISK GRAPHICS TO"
  17. 170 PRINT"       [208]RINT [211]HOP ([211]IDE [193]) FORMAT.  "
  18. 180 PRINT"      [212]HIS PROGRAM IS [208]UBLIC [196]OMAIN."
  19. 190 PRINT"[144][208]RINT [211]HOP IS A TRADEMARK OF [194]RODERBUND."
  20. 200 PRINT"      [208]RINT[205]ASTER IS A TRADEMARK OF"
  21. 210 PRINT"             [213]NISON [215]ORLD."
  22. 220 PRINT"       [208]RESS ANY KEY TO CONTINUE."
  23. 230 GETA$:IFA$=""THEN230
  24. 240 PRINT"[147][149][208][210][201][206][212] [211][200][207][208]/[208][210][201][206][212][205][193][211][212][197][210][160][199][210][193][208][200][201][195][160][195][207][206][214][197][210][212][197][210]";
  25. 250 PRINT" [144][212]YPE OF CONVERSION:"
  26. 260 PRINT"     1 = [208]RINT [211]HOP TO [208]RINT[205]ASTER"
  27. 270 PRINT"     2 = [208]RINT[205]ASTER TO [208]RINT [211]HOP"
  28. 280 INPUT" [215]HICH";CT:IFCT<>1ANDCT<>2THENPRINT"[195]HOOSE 1 OR 2":GOTO280
  29. 290 INPUT" [211]OURCE [196]RIVE ? 8[157][157][157]";SD
  30. 300 INPUT"[144] [196]ESTINATION [196]RIVE ? 8[157][157][157]";DD
  31. 310 IF SD<>DD THEN360
  32. 320 PRINT" [208]LEASE INSERT THE DISKETTE INTO THE
  33. 330 [153]" DISK DRIVE AND PRESS THE (null)VAL(null)(null)(null)(null)WAIT KEY.
  34. 340 PRINT" [195]ONVERTED PROGRAMS WILL BE WRITTEN ON
  35. 350 [153]" SAME DISK; DON'T WRITE PROTECT DISK.":[137]390
  36. 360 [153]" (null)LEASE INSERT THE SOURCE DISK IN
  37. 370 PRINT"DRIVE"SD"AND THE DESTINATION DISK IN
  38. 380 [153]"DRIVE"DD".  (null)RESS (null)VAL(null)(null)(null)(null)WAIT WHEN READY."
  39. 390 [161]A$:[139]A$[179][177][199](13)[167]390
  40. 400 [159]15,SD,15,"I0":DN[178]15:[141]770:[139]E[167]820
  41. 410 [159]14,DD,15,"I0":DN[178]14:[141]770:[139]E[167]820
  42. 420 [133]"STOP ASCILENAMES TO MATCH ? *CMDCMDCMD";F$:F$[178]F$[170]"*"
  43. 430 [159]1,8,0,"$0:"[170]F$:[141]770:[153]
  44. 440 [139]E[167][153]"CONT IMPOSSIBLE TO READ DIRECTORY WAIT":[137]820
  45. 450 [153][163]10);"'LENSTOP' TO CONVERT FILE
  46. 460 PRINTTAB(10);"'[210][144]' TO REJECT FILE"
  47. 470 PRINTTAB(10);"'[194][144]' TO BEGIN CONVERSION
  48. 480 [153][163]10);"'ATNSTOP' TO ABORT"
  49. 490 [161]#1,A$,B$:N[178]0
  50. 500 [161]#1,A$,B$:[139]B$[178]""[137]740
  51. 510 [161]#1,A$,B$:F$[178]"":O$[178]""
  52. 520 [139]A$[179][177][199](3) [176]B$[179][177]""[167] BF[178][171]1
  53. 530 [161]#1,A$:[139]64[175]ST[137]740
  54. 540 [139]A$[179][177]Q$[137]530
  55. 550 [161]#1,A$:[139]A$[178]Q$[167]590
  56. 560 F$[178]F$[170]A$:[139] A$[179][177]""[167]A[178][198](A$):[139]A[177]96[167]A[178]A[171]32:A$[178][199](A)
  57. 570 [139] A$[178]" "[176]A$[178]"."[176]A$[178]"\"[176]A$[178]"^"[167]A$[178]"-"
  58. 580 O$[178]O$[170]A$:[137]550
  59. 590 [161]#1,A$:[139]A$[179][177]" "[137]590
  60. 600 [161]#1,T$:[139]T$[178]" "[137]600
  61. 610 [161]#1,A$:[139]A$[179][177]""[137]610
  62. 620 [139] BF [176] T$[179][177]"P" [167] BF[178]0:[137]500
  63. 630 [139] CT[178]2 [175] [201](F$,4)[179][177]".GRA"[167]500
  64. 640 [153][163]2)Q$;F$;Q$;[163]21);
  65. 650 [153]"_ C:R:B:A?WAITCMDCMDCMDCMDCMDCMDCMDCMD";:GF[178][171]1
  66. 660 [161]A$:[139]A$[178]""[137]660
  67. 670 [139]A$[178]"R"[167][153]"CONTREJECT FILESTOP":[137]500
  68. 680 [139]A$[178]"B"[167][153]"CONTBEGIN CONVERSIONSTOP":[137]740
  69. 690 [139]A$[178]"A"[167][153]"CONTABORT CONVERSIONSTOP":[137]820
  70. 700 [139]A$[179][177]"C"[137]660
  71. 710 N[178]N[170]1:F$(N)[178]F$:O$(N)[178]O$:[153]"CONTCONVERT FILESTOP "
  72. 720 [139]N[179]MX[137]500
  73. 730 [153]" (null)AXIMUM OF";MX;"FILES."
  74. 740 [139] [168] GF [167] [153]"   (null)O MATCHING GRAPHICS NAMES FOUND!STOP":GF[178]0
  75. 750 [160]1:[153]"";N;"FILES TO CONVERT ":[139]N[178]0[167]820
  76. 760 [145] CT [137]870,1080
  77. 770 [132]DN,E,E$,E1,E2
  78. 780 [139]E[178]0[167][142]
  79. 790 EE$[178][202]([196](E),2):E1$[178][202]([196](E1),2):E2$[178][202]([196](E2),2)
  80. 800 [139]E[178]63[167][142]
  81. 810 [153]:[153]"";EE$;",";E$;",";E1$;",";E2$
  82. 820 [160]15:[160]14:[160]1:[160]8:[160]9
  83. 830 [133]" (null)ORE PROGRAMS TO CONVERT? YCMDCMDCMD";A$
  84. 840 [139]A$[178]"Y"[167]240
  85. 850 [153][163]12)"VAL(null)STR$ (null)ASC LEN(null)(null)(null)VAL(null)(null)RIGHT$(null)(null)"
  86. 860 [153]"    STOP":[128]
  87. 870 [129] I[178]1[164]N:[152]15,"I0":[152]14,"I0":[159]8,SD,8,F$(I)[170]",P,R":DN[178]15
  88. 880 [141] 770:[161]#8,A$,B$:[153]F$(I)
  89. 890 [139] A$[179][177]""[176]B$[179][177][199](88)[167][153][163]18)"ON(null)OT A (null)RINT (null)HOP ASCILE.STOP":[137]980
  90. 900 [153][163]18);"ON--> STOP"[200](O$(I),12)".GRA"
  91. 910 [159]9,DD,9,[200](O$(I),12)[170]".GRA,P,W"
  92. 920 DN[178]14:[141]770:[139] E [167]1010
  93. 930 [152]9,[199](80);[199](119);[199](88);Z$;[199](52);Z$;[199](180);
  94. 940 [129] J[178]1[164]52:L$[178]"":[129]K[178]1[164]11
  95. 950 [161]#8,A$:[139]A$[178]""[167]A$[178]Z$
  96. 960 L$[178]L$[170]A$:[130]:L$[178][199](139)[170]L$:[152]9,L$;:[130]
  97. 970 [152]9,Z$;Z$;Z$;Z$;[199](139);:[129]J[178]1[164]10:[152]9,FL$;:[130]
  98. 980 [160]8:[160]9
  99. 990 DN[178]15:[141]770:DN[178]14:[141]770
  100. 1000 [130]:[137]820
  101. 1010 [153]"ASCILE VALXISTS.  STOPVALNTER NEW NAME
  102. 1020 PRINT" (12 CHARACTERS MAXIMUM, NO
  103. 1030 [153]" SPACES, PERIODS, '\'S, OR '^'S);
  104. 1040 PRINT" PRESS [210][197][212][213][210][206][146] TO SKIP:":O$(I)=""
  105. 1050 INPUT O$(I):IF O$(I)=""THEN980
  106. 1060 IF RIGHT$(O$(I),4)=".GRA" THEN O$(I)=LEFT$(O$(I),(LEN(O$(I))-4))
  107. 1070 CLOSE9:GOTO900
  108. 1080 FOR I=1TON:PRINT#15,"I0":PRINT#14,"I0":OPEN8,SD,8,F$(I)+",P,R":DN=15
  109. 1090 GOSUB770:GET#8,A$,B$:PRINTF$(I)
  110. 1100 IFA$<>CHR$(80)THENPRINTTAB(18)"[145][206]OT A [208]RINT[205]ASTER FILE[144]":GOTO1180
  111. 1110 O$(I)=LEFT$(O$(I),LEN(O$(I))-4)
  112. 1120 PRINTTAB(18);"[145]-->[144] "O$(I):OPEN9,DD,9,O$(I)+",P,W"
  113. 1130 DN=14:GOSUB770:IF E THEN1210
  114. 1140 :GET#8,A$,A$,A$,A$,A$,A$:PRINT#9,Z$;CHR$(88);
  115. 1150 FOR J=1TO52:L$="":FORK=1TO11
  116. 1160 GET#8,A$:IFA$=""THENA$=Z$
  117. 1170 L$=L$+A$:NEXT:GET#8,A$:PRINT#9,L$;:NEXT
  118. 1180 CLOSE8:CLOSE9
  119. 1190 DN=15:GOSUB770:DN=14:GOSUB770
  120. 1200 NEXT:GOTO820
  121. 1210 PRINT"[198]ILE [197]XISTS.  [144][197]NTER NEW NAME
  122. 1220 [153]" (16 CHARACTERS MAXIMUM, LOWER CASE
  123. 1230 PRINT" ONLY, STARTING WITH A LETTER);
  124. 1240 [153]" PRESS (null)VAL(null)(null)(null)(null)WAIT TO SKIP:":O$(I)[178]""
  125. 1250 [133]O$(I):[139] O$(I)[178]""[167]1180
  126. 1260 [160]9:[137]1120
  127.